﻿Public Class frmReportesExamen

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        'CRExamenesrpt1.SetParameterValue("codigo", ComboBox1.SelectedIndex + 1)
    End Sub

    Private Sub CrystalReportViewer1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CrystalReportViewer1.Load
        CRExamenesrpt1.SetParameterValue("codigo", rpt_tipo_Examen)
    End Sub

    Private Sub frmReportesExamen_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        rpt_frm = False
    End Sub

    Private Sub frmReportesExamen_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        rpt_frm = True
    End Sub
End Class